Public Class Estimativa
    Private dblEsforco As Double
    Private strNovaPremissa As String
    Private intRodada As Integer
    Private strId As String
    Private strIdAtividade As String
    Private objUsuario As Usuario

    Public Sub New(ByVal dblEsforco As Double, ByVal strNovaPremissa As String, ByVal intRodada As Integer, ByVal objUsuario As Usuario, ByVal strIdAtividade As String)
        Me.dblEsforco = dblEsforco
        Me.strNovaPremissa = strNovaPremissa
        Me.objUsuario = objUsuario
        Me.intRodada = intRodada
        Me.strIdAtividade = strIdAtividade
    End Sub

    Public Sub New(ByVal dblEsforco As Double, ByVal strNovaPremissa As String, ByVal intRodada As Integer, ByVal objUsuario As Usuario, ByVal strIdAtividade As String, ByVal strId As String)
        Me.dblEsforco = dblEsforco
        Me.strNovaPremissa = strNovaPremissa
        Me.objUsuario = objUsuario
        Me.intRodada = intRodada
        Me.strIdAtividade = strIdAtividade
        Me.strId = strId
    End Sub

    Public Sub setEsforco(ByVal Esforco As Double)
        dblEsforco = Esforco
    End Sub

    Public Function getEsforco() As Double
        getEsforco = dblEsforco
    End Function

    Public Sub setIdAtividade(ByVal IdAtividade As String)
        strIdAtividade = IdAtividade
    End Sub

    Public Function getIdAtividade() As String
        getIdAtividade = strIdAtividade
    End Function

    Public Sub setUsuario(ByVal Usuario As Usuario)
        Me.objUsuario = Usuario
    End Sub

    Public Function getUsuario() As Usuario
        getUsuario = Me.objUsuario
    End Function

    Public Sub setNovaPremissa(ByVal NovaPremissa As String)
        strNovaPremissa = NovaPremissa
    End Sub

    Public Function getNovaPremissa() As String
        getNovaPremissa = strNovaPremissa
    End Function

    Public Sub setId(ByVal Id As String)
        strId = Id
    End Sub

    Public Function getId() As String
        getId = strId
    End Function

    Public Sub setRodada(ByVal rodada As Integer)
        intRodada = rodada
    End Sub

    Public Function getRodada() As String
        getRodada = intRodada
    End Function

End Class
